home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / pagerocx / testpa~1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-03  |  2.2 KB  |  75 lines
  1. VERSION 5.00
  2. Object = "{85A31727-F64B-11D2-886C-B123251DAC7D}#36.0#0"; "NPPalPager.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   4515
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   7005
  9.    LinkTopic       =   "Form1"
  10.    PaletteMode     =   1  'UseZOrder
  11.    ScaleHeight     =   4515
  12.    ScaleWidth      =   7005
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin PalPager.NPPalPager NPPalPager1 
  15.       Align           =   3  'Align Left
  16.       Height          =   4515
  17.       Left            =   0
  18.       TabIndex        =   0
  19.       Top             =   0
  20.       Width           =   765
  21.       _ExtentX        =   1349
  22.       _ExtentY        =   7964
  23.       Orientation     =   1
  24.       Valeur_RGB(0)   =   ""
  25.       Valeur_HEXA(0)  =   ""
  26.       Border_Style    =   3
  27.       MaxSelected     =   0
  28.       Color_Selected(0)=   0
  29.    End
  30.    Begin VB.CommandButton Command1 
  31.       Caption         =   "Save picture palette"
  32.       Height          =   495
  33.       Index           =   1
  34.       Left            =   3960
  35.       TabIndex        =   3
  36.       Top             =   3960
  37.       Width           =   2895
  38.    End
  39.    Begin VB.CommandButton Command1 
  40.       Caption         =   "Get picture palette"
  41.       Height          =   495
  42.       Index           =   0
  43.       Left            =   840
  44.       TabIndex        =   2
  45.       Top             =   3960
  46.       Width           =   2895
  47.    End
  48.    Begin VB.PictureBox Picture1 
  49.       AutoSize        =   -1  'True
  50.       Height          =   3795
  51.       Left            =   840
  52.       Picture         =   "Test Palette.frx":0000
  53.       ScaleHeight     =   3735
  54.       ScaleWidth      =   6015
  55.       TabIndex        =   1
  56.       Top             =   0
  57.       Width           =   6075
  58.    End
  59. Attribute VB_Name = "Form1"
  60. Attribute VB_GlobalNameSpace = False
  61. Attribute VB_Creatable = False
  62. Attribute VB_PredeclaredId = True
  63. Attribute VB_Exposed = False
  64. Private Sub Command1_Click(Index As Integer)
  65. Select Case Index
  66. Case 0
  67. NPPalPager1.GetPalPicture Picture1.Picture.hPal
  68. Case 1
  69. NPPalPager1.SavePalette App.Path & "\PalPicture.pal", PalWin, Picture1.Picture.hPal
  70. End Select
  71. End Sub
  72. Private Sub Picture1_Click()
  73. Me.Caption = App.Path
  74. End Sub
  75.